Public Class FrmAtributos
    Private Sub FrmAtributos_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim a As Integer, rs As New ADODB.Recordset
        If dgConfigurar.Rows.Count > 0 Then
            For a = 0 To dgConfigurar.Rows.Count - 1
                If Not dgConfigurar.Rows(a).Cells(0).Value Then
                    dgAtributos.Rows(a).Cells(1).Value = ""
                End If
            Next
        Else
            rs.Open("Select * from Eixos2 where object_id_ = ''", conn)
            For a = 0 To rs.Fields.Count - 1
                dgAtributos.Rows.Add()
                dgAtributos.Rows(a).Cells(0).Value = rs.Fields(a).Name
                'dgAtributos.Rows(a).Cells(1).ValueType = rs.Fields(a).Type
                dgConfigurar.Rows.Add()
                dgConfigurar.Rows(a).Cells(1).Value = rs.Fields(a).Name
                dgConfigurar.Rows(a).Cells(2).Value = rs.Fields(a).Type
            Next
            rs.Close()
        End If
    End Sub

    Private Sub btConfirmar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btConfirmar.Click
        Me.Hide()
    End Sub

    Private Sub btCancelar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btCancelar.Click
        Me.Hide()
    End Sub
End Class